home *** CD-ROM | disk | FTP | other *** search
/ Georgia Wildfire Prevention / Georgia Wildfire Prevention.iso / pc / media / dirs / BackUp / code.cst / 00013_Script_sound pause-play < prev    next >
Text File  |  2002-10-15  |  284b  |  14 lines
  1. property action
  2.  
  3. on getpropertydescriptionlist me
  4.   plist=[#action:[#comment:"Sound action:",#format:#symbol,#default:#pause,#range:[#play,#pause]]]
  5.   return plist
  6. end
  7.  
  8. on mousedown me
  9.   case action of
  10.     #play:sound(1).play()
  11.     #pause:sound(1).pause()
  12.   end case
  13. end
  14.